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( ZTITLE ‘Wait for a given period of time’ 
pOENT s "1-001! ® ! File: LIBWAIT.832 Edit: $8L1001 
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tT V 
-SRCILIBWA 
1 MODULE LIBSWAIT 


BEGIN 


PEPE EE SEIT I STITT TTT TT c irc i citric ii tii iii iii titi ii iii iiiiiiiiiit. 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED, 


we 


Se 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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:® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
hs OORPORAT Ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: General Utility Library 
ABSTRACT: 
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Rseoyart hibernates the current process for a specified period 
) me. 


1 
i 
i 

i 

i 

i 

i 
! 
ENVIRONMENT: User mode - AST reentrant 
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AUTHOR: Steven B. Lionel, CREATION DATE: 07-Jul-1982 
MODIFIED BY: 
1-001 = Original. SBL 07-Jul-1982 
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IBSWAIT Wait for a given period of time 18-50 Sep-1 AX-11 Bliss-32 V4.0-742 
11884 Declarations 300-1382 9}: 3; 3 LIBRTL. ti fount t ase 
4 1 XSBTTL "Declarations' 
; PROLOGUE FIL: 
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vw 
a 
ea 
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SR 


REQUIRE ‘RTLIN:LIBPROLOG'; ! Switches, PSECTS, macros 


LINKAGES: 
NONE 
| TABLE OF CONTENTS: 


FORWARD ROUTINE 
LIBSWAIT; ! Wait a given period of time 
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! 

' 
69 i NONE 
70 i 
4 i EQUATED SYMBOLS: 
ig i NONE 
74 i 
a i FIELDS: 
7 i NONE 
78 i 
r9 i OWN STORAGE: 

1 : NONE 

HY : EXTERNALS: 


EXTERNAL LITERAL 
LIBS_INVARG; 
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i MACROS: 
| 


-. 
for a given period of time 16-Sep-1984 7:21:57 Ax-11 B 
AlT = gait a’ given period of time 1 300-1382 93:95:38 LIBRTL. 
sort *LIBSWAIT = Wait a given period of time’ 


OBAL ROUTINE LIBSWAIT t 
SECONDS: REF VECTOR C, LONG] ! Number of seconds to wait 
= 


Rei 


, IBSMALT 


| 
G 
lee 


! FUNCTIONAL DESCRIPTION: 


This procedure places the current process into hibernation for 
the number of seconds specified. 


' 

' 

' 

! 

' 

CALLING SEQUENCE: 

ret_status.wic.v = LISSWAIT (tenths.rf.r) 

FORMAL PARAMETERS: 

: SECONDS Number of seconds to wait expressed as an 

: F float ing yglue, The value must be between 0 

: and 100000.00. The resolution of the delay 

s to the nearest hundredth-second. 

IMPLICIT INPUTS: 

NONE 

IMPLICIT OUTPUTS: 

NONE 

COMPLETION STATUS: 

: SS$_NORMAL Normal successful completion 

‘ L1IBS_INVARG Invalid argument. SECONDS was less than zero or was 
! reater than 100000 

; LIBS_WRONUMARG Wrong number of arguments. 

: Error status returned by the $SCHDWK system service. 
SIDE EFFECTS: 

' 
' 
a) 
! 


Schedules a wakeup for the current process and places the process into 
hibernation. 


BEGIN 


RENLS 


PIPPI IP IP IN INDI INIA ) a at nt at nt a at a a i a a dh hh 


oo 
uw 


LOCAL 
RET_STATUS, 
DELTA_TIME: VECTOR (2, LONG); 


LITERAL 
N_OF_TICKS_IN_CENTISECOND 


Return status 
Quadword time to wait 


Oc 


-100000; 


Number qf 1OPenangsecond 
clock ticks in .01 seconds; 
neget ive because we need 

a negative delta time. 
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IBSWAIT ait for a given period of time 18-52 -1 7:21:57 AX-11 Bliss-32 V4.0-742 P | 
itt IBSWAIT - Gait a’ given seeten of time 1 30071382 93:95:38 LIBRTL.SRCILIBWAIT.B325 1 " (3) 
14 CMPF 
gie CVTREL, 
EMUL, 
MULF ; 


1+ 
Validate argument count. 


SLIBSVALIDATE_ARGCOUNT (1,1); 


+ 
Return the error LIBS_INVARG if SECONDS is out if range. 


' \\ Note: The code teeter by the CMPFs is awful, though 
: correct. The BLISS folks say that this will be fixed 
’ in a future release. One could get the right code by 
: saying: CASE CMPF(..) FROM -1 TO 1, but in the interest 
of clarity, I'll wait. \\ 


CMPF (SECONDS 
RETURN LIBS$_INVARG; 


IF CMPF (SECONDS £03. ZREF (%E'100000')) GTR O OR 
» BREF (ZE'O")) LSS O 


14 
Get number of centiseconds and then round to an integer. 


MULF (SECONDS (0) Ener (%E"100') DELTA. TIME {0J); 
CVTRFL (DELTA_TIME COJ, DELTA_TIME (OJ); 

'¢ 

: Convert the number of centiseconds to wait into a VMS delta time. 


EMUL Ceet (N_OF KS_IN_CENTISECOND), Number of ticks in .01 seconds 


Uc 
TA_TIME~COJ, 
ZREF TO), 
DELTA_TIME); 


Number of centiseconds 
Addend - zero 
Delta time result 


+ 
' Schedule a wakeup for the current process. Note that if SECONDS is 
zero, the wakeup happens immediately. 


RET_ STATUS = $SCHDWK (DAYTIM = DELTA_TIME); 
IF ROT .RET_STATUS 


HEN 
RETURN .RET_STATUS; 


See 10D CD C9 CD 09 09 SINISE AP PAA AAA AAI 
SSLLSSSSS art tt ty chert 9 PIPPIN PS Say Ohh At At Sy See tt Aa 
MEAN =O OONOUES WIPO OBNOAUE MNO OODNOAUE WN 0 OONOU FW) ODO O~no 


'¢ 
: Hibernate, and return the status of the SHIBER when it wakes up. 
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RETURN ($HIBER); 


ee . . . _ cc 


: 205 0273 1 !<BLF/PAGE> 


IBSWAIT Wait for en period of time 
1-001 LIBSWAIT ez tt aPgiven Bie of time 
; 203 271 
: it $343 i END; 
5E 08 
01 +5 
50 000000006 BF 
500048C3 = BF 04 RC 
50 50 02 39 
1 
00000000 = 8F 04 Rf 
50 50 02 9¢ 
08 
50 00000000G 8F 
6E 000043C8 8F 04 BC 
6E 6E 
6E 00 6E FFFE7960 or 
04 ae 
000000006 00 9 
07 0 
000000006 00 00 
; Routine Size: 110 bytes, Routine Base: _LIBSCODE 


o 
o 


OMMNR NOS NS SOO -oOMouO MOwno0 -—-oro 


+ 


S SDWOWMOVML POMONA "OVA LOW WO 


o 
o 
o 
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! End of 
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IBRTL.SRCILIBWAI 


routine LIBSWAIT 


T Wait for a given period of time 
VARG, LIB$_WRONUMARG 

SCHDWK, SYSSHTBER 
-LIBSCODE,NOWRT, SHR, 
Hb SP Save nothing 
(Ab) 

#LIBS_WRONUMARG, RO 
SECONDS, #100000 

ose #2, RO, RO 


Al 
1\ 
IN 
C 


PIC,2 


2s 

Ere eenes, #0 
aoe #2, RO, RO 
R 


3$ 
WLIBS_INVARG, RO 

@SECONDS, #100. DELTA_TIME 
DELTA_TIME, DELTA TI 

#100000, bELTA. TIME, #0, DELTA_TIME 
DELTA. TIME 
#4, SV SYS$SCHDUK 

w.7 “Sy SSHiBER® 
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0158 
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LIBSHALT 


Wai 
LIB 
o 74 1 END 
8 75 (1 
09 76 O ELUDOM 


Sete Ge Ge Ge 


Sete ee ee Se Se Ge 


Name 
-LIBSCODE 


File 


$2 
82 


0 


tion Complete 


55$DUA28: CSYSLIBISTARLET. 
55$DUA28: CLIBRTL.OBJIRTLL 


en pericd of time 
t a given period of time 


PSECT SUMMARY 


Bytes 


110 NOVEC,NOWRT, 


Library Statistics 


Total 
32;1 9776 
B.L32;1 36 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:LIBWAIT/OBJ=OBJ$:LIBWAIT MSRC$:LIBWAIT/UPDATE=(ENH$:LIBWAIT) 


: : 110 code + 0 data bytes 
: on beg F 09:92 -8 

: se me: : 
 ETeeyePU Min: 583 


; penery Used: 49 pages 
; Compila 


1986 92:85:88 


! End of module LIBS$WAIT 
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